Public Class Query

    Private Sub Clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Clear.Click
        QueryText.Text = ""
    End Sub

    Private Sub Execute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Execute.Click
        For i As Integer = 0 To QueryText.Lines.Length - 1
            If QueryText.Lines(i) <> "" Then
                'MessageBox.Show(QueryText.Lines(i))
                exec_qr(QueryText.Lines(i))
            End If
        Next
        MsgBox("Data berhasil di upload", MsgBoxStyle.Information, "Sukses")
    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub
End Class